home *** CD-ROM | disk | FTP | other *** search
/ PC World 2008 March / PCWorld_2008-03_cd.bin / v cisle / pcwrar / pcwRarHide.exe / pcwRarHide.vbs
Encoding:
Text File  |  2008-01-16  |  2.2 KB  |  48 lines
  1. Set MyShell = CreateObject("Wscript.Shell")
  2. Set MyFiles = CreateObject("Scripting.FileSystemObject")
  3. Set umgebung=MyShell.Environment("PROCESS")
  4. windir=umgebung("windir")
  5. Set arg=wscript.arguments
  6. on error resume next
  7. Datei = arg(0)
  8. installpath=windir & "\pcwRarHide.vbs"
  9. neu="wscript.exe " & windir & "\pcwRarHide.vbs " & chr(34) & "%1" & chr(34)
  10.  
  11. 'NovΘ polo₧ky do kontextovΘho menu
  12. 'DO obrßzku se skryje archiv RAR, r²kß se tedy typu soubor∙ RAR
  13. If Datei = "" then
  14.     a = myshell.regread("HKEY_CLASSES_ROOT\.rar\")
  15.     b = myshell.regread("HKEY_CLASSES_ROOT\" & a & "\Shell\Skr²t do obrßzku\Command\")
  16.     If b="" Then
  17.         pcwscript=wscript.scriptfullname
  18.         Set pcwcopy=MyFiles.GetFile(pcwscript)
  19.         pcwcopy.copy(installpath)
  20.         myshell.regwrite("HKEY_CLASSES_ROOT\" & a & "\Shell\Skr²t do obrßzku\Command\"), neu
  21.         MsgBox "Nßstroj pro ukr²vßnφ soubor∙ RAR byl nainstalovßn", vbOkOnly+vbInformation, "Hotovo"
  22.         wscript.quit
  23.     Else
  24.         a = myshell.regread("HKEY_CLASSES_ROOT\.rar\")
  25.         b = myshell.regread("HKEY_CLASSES_ROOT\" & a & "\Shell\Skr²t do obrßzku\Command\")
  26.         res = MsgBox("Chcete odinstalovat pcwRarHide?", vbYesNo+vbQuestion, "Odinstalovat")
  27.         If res = vbYes then
  28.             myshell.regdelete("HKEY_CLASSES_ROOT\" & a & "\Shell\Skr²t do obrßzku\Command\")
  29.             myshell.regdelete("HKEY_CLASSES_ROOT\" & a & "\Shell\Skr²t do obrßzku\")
  30.             Weg=Myfiles.Deletefile(installpath, true)
  31.             MsgBox "Nßstroj pro ukr²vßnφ soubor∙ RAR byl odinstalovßn", vbOkOnly+vbInformation, "Hotovo"
  32.             wscript.quit
  33.         End if
  34.     End If
  35. else
  36.   Set objDialog = CreateObject("UserAccounts.CommonDialog")
  37.   objDialog.InitialDir = "C:\"
  38.   objDialog.Filter = "Soubory obrßzk∙|*.jpg;*.gif;*.bmp;*.tif;*png;"
  39.   objDialog.Flags = &H80000 + &H4 + &H8
  40.   objDialog.ShowOpen
  41.   Dateipfad = myfiles.getparentfoldername(Datei)
  42.   Bilddatei = objDialog.FileName
  43.   Bildbasis = myfiles.getbasename(Bilddatei)
  44.   Bilderw = myfiles.getextensionname(Bilddatei)
  45.   if Bilddatei = "" then wscript.quit
  46.   ret = Myshell.Run("cmd /c copy /b " & chr(34) & Bilddatei & chr(34) & " + " & chr(34) & Datei & chr(34) & " " & chr(34) & Dateipfad & "\" & Bildbasis & "_neu." & Bilderw & chr(34), 1, True)
  47.   ret = Msgbox( "Soubor" & Dateipfad & "\" & Bildbasis & "_nov²." & Bilderw & " byl vytvo°en.", vbOkOnly, "Hotovo")
  48.  end if